1 ! ADVENTURE-SERIE                    5                       WARLOCK I
3 !
4 !
5 !
9 CALL CLEAR :: CALL SCREEN(2) :: CALL MAGNIFY(3) :: DIM TX$(100)
10 FOR I=33 TO 103
11 READ A$
12 CALL CHAR(I,A$) :: NEXT I
13 FOR I=129 TO 136
14 READ A$
15 CALL CHAR(I,A$) :: NEXT I
16 DATA FFFFFEFEFCFCF8F8,0,F0F0E0E0C0C08080,FFFF7F7F3F3F1F1F,0F0F070703030101,0101030307070F0F
17 DATA 1F1F3F3F7F7FFFFF,8080C0C0E0E0F0F0,F8F8FCFCFEFEFFFF,FFFF81000081FFFF,F0E0C08080C0E0F0,FFFFE7E7C3C38181
18 DATA E0C080000080C0E0,18183C3C7E7E7EFF,FFFFFFFFFFFFFFFF,FCF9F3FEFCFCF8F8,0FFF1F0F0F1F3F3F,C09F3160C0C08183
19 DATA 3F9FCFF7F7FBFBFD,FDFDFDFEFEFEFEFE,FEFDFBF7EFDFBF7F,7F7F7F7F7F7F7F7F,7FBFDFEFF7FBFDFE,FFFFFFFFFFFFFFFF
20 DATA FFFEFCF8F0E0C080,0103070F1F3F7FFF,FFFFFEFEFCFCF8F8,F0F0E0E0C0C08080,80C0E0F0F8FCFEFF,FF7F3F1F0F070301
21 DATA 00000000C0F0FCFF,0101030307070F0F,1F1F3F3F7F7FFFFF,FFFF7E3C00000000,8080C0C0E0E0F0F0,F8F8FCFCFEFEFFFF
22 DATA FFFFEFE7C7C38381,F8F8F4E4E2C2C181,8080404020201010,0808040300000000,001824C300000000,101030C000000000
23 DATA FFFF7E3C40202010,186600001F1838F0,E000181838F0E0FF,18660000FE060E3C,380006060E3C38F8,4F50607880808080
24 DATA E109050302010101,C03F2767E3632323,FFFFFFFFFFFFFFFF,0000008080808080,8442211008040718,2323231F1F6F9F33
25 DATA FFFFFFFFFFFFDB88,C7F8C0E0F8F080C0,FC02190D0D191204,645CB8B0B0988840,0000080808080808,0101010101010101
26 DATA 04121219090D0D0D,204858B0B0B0B0B0,4040404040404040,0808080808080808,0101010103020202,0D0D091912824438
27 DATA B0B0B0984840211E,404020202060B8C7,08040404040400FF,0404040404041CE7,0101020204040808,1010202040408080
28 DATA 8080404020201010,0808040402020101,0000000000404040,0000010101010101,0000008040201008,8442211008040201
29 DATA 1C12111008040201
30 R$(1)="                               /// . '*)/ '/)'/)/'!    "
31 R$(2)="                               ///&/(//!/ /*//- //+    "
32 R$(3)="                               $,!'*)/$)$)$/!$/!/$)stuv"
33 CALL COLOR(1,11,2) :: CALL COLOR(2,11,2) :: CALL COLOR(10,14,1) :: CALL COLOR(12,14,1) :: CALL COLOR(11,5,1)
34 CALL CHAR(104,"8080808080808080",105,"FF00000000000000",106,"0101010101010101",107,"00000000000000FF")
35 CALL CHAR(108,"808080804040300F",109,"0F30404080808080",110,"F00C020201010101",111,"0101010102020CF0")
36 CALL CHAR(113,"6090804026199966",114,"629282CF82828270",115,"3C66DBA1A1DB663C",116,"66A9292621212926")
37 CALL CHAR(117,"1925251924242419",118,"E00000C0202020C0",120,"00007E818181817E",121,"003C424281818181")
38 CALL CHAR(122,"F8060101010106F8",123,"8040201008040201")
39 DISPLAY AT(1,2):"miiiiiiiiiiiiiiiiiiiiiiin" :: DISPLAY AT(2,2):"h x y    y     y miin  xj" :: DISPLAY AT(3,2):"h  o h  j h   j hl   hkko"
40 DISPLAY AT(4,2):"h m  h  j h   j h z  h{" :: DISPLAY AT(5,2):"hj   h  j h   j hm   h {" :: DISPLAY AT(6,2):"hj   h xj h y j hlk  h  {"
41 DISPLAY AT(7,2):"lo   lkko lo lo lkkz lqro" :: DISPLAY AT(8,24):"ii"
42 FOR I=1 TO 10
43 READ D,T
44 CALL SOUND(D*30,T,0,T+1,5,T*1.2,5)
45 NEXT I
46 DATA 25,220,10,277,10,294,25,233,25,247,25,200,10,230,10,250,30,185,1,1000
47 P=22
48 FOR O=1 TO 3
49 FOR I=1 TO 28
50 R5$=SEG$(R$(O),I,28)
51 DISPLAY AT(P,1):R5$ :: NEXT I
52 P=P+1 :: NEXT O
53 CALL COLOR(3,13,2) :: CALL COLOR(4,13,2) :: CALL COLOR(5,13,2) :: CALL COLOR(6,13,2)
54 CALL COLOR(7,8,2) :: CALL COLOR(8,8,2) :: CALL COLOR(9,8,2) :: CALL COLOR(13,8,2) :: CALL COLOR(14,8,2)
55 DISPLAY AT(10,1):"        ==?=" :: DISPLAY AT(11,1):"      @:8888C"
56 DISPLAY AT(12,1):"    ::A88012<" :: DISPLAY AT(13,1):"  @:88888883C     "
57 DISPLAY AT(14,1):"::A8888;EF>4D   PQ" :: DISPLAY AT(15,1):"888888;<  GBK   RST"
58 DISPLAY AT(16,1):"88888;<   HIJ    UVWXY" :: DISPLAY AT(17,1):"5888;<           Z [\]"
59 DISPLAY AT(18,1):"688;<            ^_`ab" :: DISPLAY AT(19,1):"688<             cdef"
60 DISPLAY AT(20,1):"788=             g   " :: DISPLAY AT(21,1):"8788=               "
61 DISPLAY AT(22,1)SIZE(4):"89>8" :: DISPLAY AT(23,1)SIZE(4):"   >"
62 CALL MUSIK
63 FOR I=3 TO 15
64 CALL COLOR(1,I,2) :: CALL COLOR(2,I,2)
65 FOR O=1 TO 100
66 CALL KEY(0,K,S) :: IF S=0 THEN 67 ELSE 69
67 NEXT O :: NEXT I
68 GOTO 63
69 CALL CLEAR :: CALL CHARSET
70 FOR I=1 TO 8
71 CALL COLOR(I,5,2) :: NEXT I
72 DISPLAY AT(1,1):"IM REICHE DES DRACHEN ANAUT," :: DISPLAY AT(3,1):"IST GEFANGEN DEINE BRAUT."
73 DISPLAY AT(5,1):"WIRST AUF DEINEM WEGE OFT" :: DISPLAY AT(7,1):"FLUCHEN,"
74 DISPLAY AT(9,1):"MUST DIE BURG DES DRACHEN" :: DISPLAY AT(11,1):"IM LAND ERST SUCHEN."
75 DISPLAY AT(13,1):"HAST EREREICHT DU DEIN ZIEL" :: DISPLAY AT(15,1):"UNFERDROSSEN,"
76 DISPLAY AT(17,1):"SO BLEIBT DAS TOR DER BURG" :: DISPLAY AT(19,1):"DOCH VERSCHLOSSEN."
77 CALL KEY(0,K,S) :: IF S=0 THEN 77
78 CALL CLEAR :: DISPLAY AT(1,1):"DOCH KANN EIN ZAUBER DIR" :: DISPLAY AT(3,1):"HELFEN,"
79 DISPLAY AT(5,1):"FINDEST DU DIE VIER HARFEN" :: DISPLAY AT(7,1):"DER ELFEN."
80 DISPLAY AT(9,1):"IM KAMPF MIT DEM DRACHEN" :: DISPLAY AT(11,1):"BRAUCHST DEIN SCHWERT DU"
81 DISPLAY AT(13,1):"UND MUT," :: DISPLAY AT(15,1):"ES WIRD GEBE WUNDEN UND"
82 DISPLAY AT(17,1):"FLIESSEN WIRD BLUT."
83 DISPLAY AT(19,1):"UM LEBEN UND TOD WIRD ES" :: DISPLAY AT(21,1):"EIN RINGEN,"
84 DISPLAY AT(23,1):"KANNST DU DEN KAMPF GEWINNEN"
85 CALL KEY(0,K,S) :: IF S=0 THEN 85
86 CALL CLEAR :: DISPLAY AT(1,1):"GESPIELT WIRD MIT JOYSTIC 1" :: DISPLAY AT(3,1):"FEUERTASTE=>BENUTZEN SCHWERT"
87 DISPLAY AT(5,1):"ZU BEGINN DES SPIELS STEHEN" :: DISPLAY AT(7,1):"100% ENERGIE UND 5 LEBEN ZU"
88 DISPLAY AT(9,1):"VERFUEGUNG. IST DIE ENERGIE" :: DISPLAY AT(11,1):"VERBRAUCHT SO VERLIEREN SIE"
89 DISPLAY AT(13,1):"EIN LEBEN. IST IHE ENERGIE" :: DISPLAY AT(15,1):"AUF 250% GESTIEGEN BEKOMMEN"
90 DISPLAY AT(17,1):"SIE FUER 125% ENERGIE EIN" :: DISPLAY AT(19,1):"BONUS LEBEN. SIND ALLE LEBEN"
91 DISPLAY AT(21,1):"VERBRAUCHT SO IST DAS SPIEL" :: DISPLAY AT(23,1):"BEENDET."
92 CALL KEY(0,K,S) :: IF S=0 THEN 92
93 CALL CLEAR
94 FOR I=1 TO 8
95 CALL COLOR(I,14,1) :: NEXT I
96 DISPLAY AT(1,1):"    * WERTUNGSTABELLE *"
97 DISPLAY AT(5,1):"            ENERGIE  PUNKTE "
98 DISPLAY AT(7,1):"SCHWERT BEN.   -1 (1SEK) "
99 DISPLAY AT(9,1):"TIER TOETEN    -5     +25"
100 DISPLAY AT(11,1):"TIER BERUEHREN -?"
101 DISPLAY AT(13,1):"HARFE                 +250"
102 DISPLAY AT(15,1):"MUENZE                +50"
103 DISPLAY AT(17,1):"SCHILD                +75"
104 DISPLAY AT(19,1):"PILZ           +50    +100 "
105 DISPLAY AT(21,1):""
106 CALL KEY(0,K,S) :: IF S=0 THEN 106
107 CALL CLEAR
108 FOR I=1 TO 8
109 CALL COLOR(I,8,1) :: NEXT I
110 DISPLAY AT(23,1):"* EINEN MOMENT BITTE...."
111 RUN "DSK1.WARLOCDATA"
112 SUB MUSIK
113 T=200
114 FOR I=1 TO 2
115 GOSUB 132
116 CALL SOUND(T,415,3)
117 CALL SOUND(T,494,3)
118 CALL SOUND(T,523,2,110,15)
119 CALL SOUND(T,165,4)
120 CALL SOUND(T,220,4)
121 CALL SOUND(T,330,3)
122 GOSUB 132
123 CALL SOUND(T,523,3)
124 CALL SOUND(T,494,4)
125 CALL SOUND(T,440,4,110,14)
126 CALL SOUND(T,165,10)
127 CALL SOUND(T,220,7)
128 NEXT I
129 CALL SOUND(T,330,6)
130 CALL SOUND(T*3,440,6)
131 GOTO 151
132 CALL SOUND(T,659,6)
133 CALL SOUND(T,622,6)
134 CALL SOUND(T,659,6)
135 CALL SOUND(T,622,5)
136 CALL SOUND(T,659,4)
137 CALL SOUND(T,494,3)
138 CALL SOUND(T,587,4)
139 CALL SOUND(T,523,5)
140 CALL SOUND(T,440,6,110,15)
141 CALL SOUND(T,165,8)
142 CALL SOUND(T,220,6)
143 CALL SOUND(T,262,4)
144 CALL SOUND(T,330,4)
145 CALL SOUND(T,440,4)
146 CALL SOUND(T,494,4,131,15)
147 CALL SOUND(T,165,4)
148 CALL SOUND(T,208,4)
149 CALL SOUND(T,330,4)
150 RETURN
151 SUBEND
